﻿Imports System.Transactions
Imports CondorTravel.BE
Imports CondorTravel.DALC

Public Class UnidadBC

    Public Function UnidadListar() As List(Of UnidadBE)
        Try
            Dim listUnidadBE As List(Of UnidadBE) = Nothing
            Dim objCategoriaDALC As UnidadDALC = Nothing

            objCategoriaDALC = New UnidadDALC
            listUnidadBE = New List(Of UnidadBE)()
            listUnidadBE = objCategoriaDALC.ListarUnidad()

            Return listUnidadBE

        Catch ex As Exception
            MsgBox(ex.Message, vbCritical, "Error del sistema")
            Return Nothing
            Exit Function
        End Try
    End Function







End Class
